100 REM   AENDERT FREEZER-STARTADRESSE
120 REM     (C)1987 BY PATRICK URBAN
124 REM  STARK VERBESSERT VON N.HEUSLER
130 :
500 OPEN15,8,15,"I":OPEN2,8,2,"#
510 T[178]18:S[178]1:FR$[178]"FREEZERCLOSE
520 PRINT#15,"U1 2 0"T;S
550 PRINT#15,"B-P 2 0
560 [161]#2,A$:[139]A$[178]""[167]A$[178][199](.)
570 T[178][198](A$)
580 [161]#2,A$:[139]A$[178]""[167]A$[178][199](.)
590 S[178][198](A$)
600 [129]I[178]0[164]7:NA$[178]"":[152]15,"B-P 2"I[172]32[170]2
605 [161]#2,A$:A[178][198](A$[170][199](0)):[139](A[175]15)[179][177]2[167]630
607 [161]#2,A$,A$
610 [129]J[178]1[164]8:[161]#2,A$:[139]A$[178]""[167]A$[178][199](0)
620 NA$[178]NA$[170]A$:[130]:[139]NA$[178]FR$[167]700
630 [130]:[139]T[178]0[175]S[178]255[167]800
640 [137]520
700 [152]15,"B-P 2"I[172]32[170]3
710 [161]#2,A$
720 T[178][198](A$)
730 [161]#2,A$:[139]A$[178]""[167]A$[178][199](0)
740 S[178][198](A$)
750 [152]15,"U1:2 0"T;S:[152]15,"B-P 2 2
755 GET#2,D1$,D2$:PRINT#15,"B-P 2 2
756 D1[178][198](D1$[170][199](.))
757 D2[178][198](D2$[170][199](.))
758 D[178]D1[170]D2[172]256:[139]D[178]63276[167][153]"WARUM NOCHMAL ?":[137]770
759 [139]D[177][179]20480[167][153]"BITTE NOCHMAL MIT DEM MSE EINGEBEN!":[160]2:[160]15:[128]
760 [152]2,[199](44)[199](247);:[152]15,"U2:2 0"T;S
762 [153]"ADRESSE GEAENDERT
765 INPUT#15,F1:IFF1THENPRINT"DISKETTENFEHLER NR."F1:CLOSE2:CLOSE15:END
770 PRINT#15,"I":CLOSE2:CLOSE15
780 PRINT"OK !":END
800 CLOSE2:CLOSE15
810 PRINT"FILE NICHT GEFUNDEN!!":END